home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
pkey12_1.zip
/
LT.LSP
< prev
next >
Wrap
Text File
|
1992-09-13
|
623b
|
16 lines
;Change linetype of multiple objects
;
(graphscr)
(princ "\nChange Linetype")
(prompt "\nSelect object to be changed...")
(setq a(ssget))
(if a(progn
(initget 1 "L C H D SD CE l c h d sd ce")
(setq c(getkword "\nSelect...by(L)ayer.(C)ontinuous.(H)idden.(D)ashed.(SD)small dash.(CE)nter "))
(if(or(= c "L")(= c "l"))(setq d '"bylayer"))
(if(or(= c "C")(= c "c"))(setq d '"continuous"))
(if(or(= c "H")(= c "h"))(setq d '"hidden"))
(if(or(= c "D")(= c "d"))(setq d '"dashed"))
(if(or(= c "SD")(= c "sd"))(setq d '"sd"))
(if(or(= c "CE")(= c "ce"))(setq d '"center"))
(command "change" a "" "prop" "lt" d "")))